home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / nrpas13.zip / SORT3.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-29  |  718b  |  31 lines

  1. PROCEDURE sort3(n: integer; VAR ra,rb,rc,wksp: glsarray;
  2.       VAR iwksp: gliarray);
  3. (* Programs using routine SORT3 must define the types
  4. TYPE
  5.    glsarray = ARRAY [1..np] OF real;
  6.    gliarray = ARRAY [1..np] OF integer;
  7. in the main routine, with np >= n.   *)
  8. VAR
  9.    j: integer;
  10. BEGIN
  11.    indexx(n,ra,iwksp);
  12.    FOR j := 1 TO n DO BEGIN
  13.       wksp[j] := ra[j]
  14.    END;
  15.    FOR j := 1 TO n DO BEGIN
  16.       ra[j] := wksp[iwksp[j]]
  17.    END;
  18.    FOR j := 1 TO n DO BEGIN
  19.       wksp[j] := rb[j]
  20.    END;
  21.    FOR j := 1 TO n DO BEGIN
  22.       rb[j] := wksp[iwksp[j]]
  23.    END;
  24.    FOR j := 1 TO n DO BEGIN
  25.       wksp[j] := rc[j]
  26.    END;
  27.    FOR j := 1 TO n DO BEGIN
  28.       rc[j] := wksp[iwksp[j]]
  29.    END
  30. END;
  31.